From: Bruno Félix Rezende Ribeiro <oitofelix@gnu.org>
Date: Sat, 8 Aug 2020 13:13:57 +0000 (+0200)
Subject: * doc/lispref/os.texi (Session Management): Make example homoiconic
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~5970
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=527b8a807143253ed8e52de004fb3cc9a17123c0;p=emacs.git

* doc/lispref/os.texi (Session Management): Make example homoiconic

* doc/lispref/os.texi (Session Management): Don't insert Lisp as
strings, but use format (bug#40341).

Copyright-paperwork-exempt: yes
---

diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 942bda105f7..a7f353407ce 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -2687,9 +2687,10 @@ Emacs is restarted by the session manager.
 
 @group
 (defun save-yourself-test ()
-  (insert "(save-current-buffer
-  (switch-to-buffer \"*scratch*\")
-  (insert \"I am restored\"))")
+  (insert
+   (format "%S" '(save-current-buffer
+		   (switch-to-buffer "*scratch*")
+		   (insert "I am restored"))))
   nil)
 @end group
 @end example